home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Shareware Plus / Applications / Charting Coach / Charting Coach V2.0sw / Charting Coach V2.DXR / 00164.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  420 b   |  19 lines
  1. on mouseUp
  2.   global stamp, correctionMade
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   cursor(4)
  7.   if count(stamp) > 0 then
  8.     set correctionMade to 0
  9.     hideDays()
  10.     put " " into field "problem"
  11.     go("monthly")
  12.     showMonthlyDays()
  13.     cursor(0)
  14.   else
  15.     cursor(0)
  16.     alert("Monthly Calendar will not function until the first entry is charted or the cycle is changed using the Options button.")
  17.   end if
  18. end
  19.